home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / WIDGET2.MPR < prev    next >
Text File  |  1992-01-15  |  17KB  |  417 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 01/15/92             WIDGET2.MPR              16:10:13  ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992                                      ║
  10. *       ║ Application developed for _Using FoxPro 2_              ║
  11. *       ║ Que Publishing Corporation                              ║
  12. *       ║ ISBN 0-88022-703-6                                      ║
  13. *       ║                                                         ║
  14. *       ║ Description:                                            ║
  15. *       ║ This program was automatically generated by GENMENU.    ║
  16. *       ║                                                         ║
  17. *       ╙─────────────────────────────────────────────────────────╜
  18.  
  19.  
  20. *       ╓─────────────────────────────────────────────────────────╖
  21. *       ║                                                         ║
  22. *       ║                      Menu Definition                    ║
  23. *       ║                                                         ║
  24. *       ╙─────────────────────────────────────────────────────────╜
  25. *
  26.  
  27. SET SYSMENU TO
  28.  
  29. SET SYSMENU AUTOMATIC
  30.  
  31. DEFINE PAD _MSM_SYSTM OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
  32.     KEY ALT+S, ""
  33. DEFINE PAD _MSM_EDIT OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  34.     KEY ALT+E, ""
  35. DEFINE PAD _q2b0ynpth OF _MSYSMENU PROMPT "\<Tables" COLOR SCHEME 3 ;
  36.     KEY ALT+T, "ALT+T" ;
  37.     SKIP FOR RDLEVEL() > 1
  38. DEFINE PAD RESULTS OF _MSYSMENU PROMPT "Resu\<lts" COLOR SCHEME 3 ;
  39.     KEY ALT+L, "ALT+L"
  40. DEFINE PAD _MSM_WINDO OF _MSYSMENU PROMPT "\<Windows" COLOR SCHEME 3 ;
  41.     KEY ALT+W, ""
  42. DEFINE PAD _q2b0ynpvp OF _MSYSMENU PROMPT "\<Utilities" COLOR SCHEME 3 ;
  43.     KEY ALT+U, "ALT+U"
  44. ON PAD _MSM_SYSTM OF _MSYSMENU ACTIVATE POPUP _msystem
  45. ON PAD _MSM_EDIT OF _MSYSMENU ACTIVATE POPUP _medit
  46. ON PAD _q2b0ynpth OF _MSYSMENU ACTIVATE POPUP tables
  47. ON PAD RESULTS OF _MSYSMENU ACTIVATE POPUP results
  48. ON PAD _MSM_WINDO OF _MSYSMENU ACTIVATE POPUP newwind
  49. ON PAD _q2b0ynpvp OF _MSYSMENU ACTIVATE POPUP utilities
  50.  
  51. DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
  52. DEFINE BAR _MST_ABOUT OF _msystem PROMPT "\<About FoxPro..."
  53. DEFINE BAR 2 OF _msystem PROMPT "About the \<Widget Application..." ;
  54.     SKIP FOR RDLEVEL() > 1
  55. DEFINE BAR 3 OF _msystem PROMPT "\<Help..." ;
  56.     KEY F1, "F1"
  57. DEFINE BAR _MST_MACRO OF _msystem PROMPT "\<Macros..."
  58. DEFINE BAR _MST_SP100 OF _msystem PROMPT "\-"
  59. DEFINE BAR _MST_FILER OF _msystem PROMPT "\<Filer"
  60. DEFINE BAR _MST_CALCU OF _msystem PROMPT "\<Calculator"
  61. DEFINE BAR _MST_DIARY OF _msystem PROMPT "Calendar/\<Diary"
  62. DEFINE BAR _MST_SPECL OF _msystem PROMPT "\<Special Characters"
  63. DEFINE BAR _MST_ASCII OF _msystem PROMPT "ASC\<II Chart"
  64. DEFINE BAR _MST_CAPTR OF _msystem PROMPT "Ca\<pture"
  65. DEFINE BAR _MST_PUZZL OF _msystem PROMPT "Pu\<zzle"
  66. DEFINE BAR 13 OF _msystem PROMPT "\-"
  67. DEFINE BAR 14 OF _msystem PROMPT "\<Quit" ;
  68.     SKIP FOR RDLEVEL() > 1
  69. ON SELECTION BAR 2 OF _msystem DO widgbout.spr
  70. ON SELECTION BAR 3 OF _msystem DO widghelp WITH VARREAD(), PROMPT(),WONTOP(), ALIAS(), WTITLE()
  71. ON SELECTION BAR 14 OF _msystem ;
  72.     DO _q2b0ynq7z ;
  73.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  74.  
  75. DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  76. DEFINE BAR _MED_UNDO OF _medit PROMPT "\<Undo" ;
  77.     KEY CTRL+U, "^U"
  78. DEFINE BAR _MED_REDO OF _medit PROMPT "\<Redo" ;
  79.     KEY CTRL+R, "^R"
  80. DEFINE BAR _MED_SP100 OF _medit PROMPT "\-"
  81. DEFINE BAR _MED_CUT OF _medit PROMPT "Cu\<t" ;
  82.     KEY CTRL+X, "^X"
  83. DEFINE BAR _MED_COPY OF _medit PROMPT "\<Copy" ;
  84.     KEY CTRL+C, "^C"
  85. DEFINE BAR _MED_PASTE OF _medit PROMPT "\<Paste" ;
  86.     KEY CTRL+V, "^V"
  87. DEFINE BAR _MED_CLEAR OF _medit PROMPT "Clear"
  88. DEFINE BAR _MED_SP200 OF _medit PROMPT "\-"
  89. DEFINE BAR _MED_SLCTA OF _medit PROMPT "Select \<All" ;
  90.     KEY CTRL+A, "^A"
  91. DEFINE BAR _MED_SP300 OF _medit PROMPT "\-"
  92. DEFINE BAR _MED_GOTO OF _medit PROMPT "Goto \<Line..."
  93. DEFINE BAR _MED_FIND OF _medit PROMPT "\<Find..." ;
  94.     KEY CTRL+F, "^F"
  95. DEFINE BAR _MED_FINDA OF _medit PROMPT "Find A\<gain" ;
  96.     KEY CTRL+G, "^G"
  97. DEFINE BAR _MED_REPL OF _medit PROMPT "R\<eplace And Find Again" ;
  98.     KEY CTRL+E, "^E"
  99. DEFINE BAR _MED_REPLA OF _medit PROMPT "Replace All"
  100. DEFINE BAR _MED_SP400 OF _medit PROMPT "\-"
  101. DEFINE BAR _MED_PREF OF _medit PROMPT "Prefere\<nces..."
  102.  
  103. DEFINE POPUP tables MARGIN RELATIVE SHADOW COLOR SCHEME 4
  104. DEFINE BAR 1 OF tables PROMPT "\<Budget Entries"
  105. DEFINE BAR 2 OF tables PROMPT "\-"
  106. DEFINE BAR 3 OF tables PROMPT "\<Products"
  107. DEFINE BAR 4 OF tables PROMPT "Budget \<Categories"
  108. DEFINE BAR 5 OF tables PROMPT "\<Departments"
  109. DEFINE BAR 6 OF tables PROMPT "C\<ustomers"
  110. ON SELECTION BAR 1 OF tables DO budget.spr
  111. ON SELECTION BAR 3 OF tables ;
  112.     DO _q2b0ynqs7 ;
  113.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  114. ON SELECTION BAR 4 OF tables DO budcat.spr
  115. ON SELECTION BAR 5 OF tables DO dept.spr
  116.  
  117. DEFINE POPUP results MARGIN RELATIVE SHADOW COLOR SCHEME 4
  118. DEFINE BAR _MDA_BROW OF results PROMPT "Open & \<Browse Table"
  119. DEFINE BAR 2 OF results PROMPT "\<Set Order" ;
  120.     SKIP FOR EMPTY(ALIAS())
  121. DEFINE BAR _MRC_GOTO OF results PROMPT "\<Goto Record" ;
  122.     SKIP FOR EMPTY(ALIAS())
  123. DEFINE BAR _MRC_LOCAT OF results PROMPT "\<Locate Record" ;
  124.     SKIP FOR EMPTY(ALIAS())
  125. DEFINE BAR 5 OF results PROMPT "Close \<Table" ;
  126.     SKIP FOR EMPTY(ALIAS()) OR RDLEVEL()>1
  127. DEFINE BAR _MDA_SP100 OF results PROMPT "\-"
  128. DEFINE BAR _MDA_AVG OF results PROMPT "A\<verage..." ;
  129.     SKIP FOR EMPTY(ALIAS())
  130. DEFINE BAR _MDA_COUNT OF results PROMPT "C\<ount..." ;
  131.     SKIP FOR EMPTY(ALIAS())
  132. DEFINE BAR _MDA_SUM OF results PROMPT "Su\<m..." ;
  133.     SKIP FOR EMPTY(ALIAS())
  134. DEFINE BAR _MDA_CALC OF results PROMPT "Calculat\<e..." ;
  135.     SKIP FOR EMPTY(ALIAS())
  136. DEFINE BAR 11 OF results PROMPT "\-"
  137. DEFINE BAR 12 OF results PROMPT "\<Reports"
  138. ON SELECTION BAR 2 OF results DO getorder.spr
  139. ON SELECTION BAR 5 OF results USE
  140. ON BAR 12 OF results ACTIVATE POPUP reports
  141.  
  142. DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4
  143. DEFINE BAR 1 OF reports PROMPT "Budget Table Report #1"
  144. DEFINE BAR 2 OF reports PROMPT "... etc..."
  145. ON SELECTION BAR 1 OF reports ;
  146.     DO _q2b0ynr8d ;
  147.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  148.  
  149. DEFINE POPUP newwind MARGIN RELATIVE SHADOW COLOR SCHEME 4
  150. DEFINE BAR _MWI_HIDE OF newwind PROMPT "\<Hide"
  151. DEFINE BAR _MWI_HIDEA OF newwind PROMPT "\<Hide All"
  152. DEFINE BAR _MWI_SHOWA OF newwind PROMPT "Sh\<ow All"
  153. DEFINE BAR _MWI_CLEAR OF newwind PROMPT "Clea\<r"
  154. DEFINE BAR _MWI_SP100 OF newwind PROMPT "\-"
  155. DEFINE BAR _MWI_MOVE OF newwind PROMPT "\<Move" ;
  156.     KEY CTRL+F7, "^F7"
  157. DEFINE BAR _MWI_SIZE OF newwind PROMPT "\<Size" ;
  158.     KEY CTRL+F8, "^F8"
  159. DEFINE BAR _MWI_ZOOM OF newwind PROMPT "\<Zoom " ;
  160.     KEY CTRL+F10, "^F10"
  161. DEFINE BAR _MWI_MIN OF newwind PROMPT "Z\<oom " ;
  162.     KEY CTRL+F9, "^F9"
  163. DEFINE BAR _MWI_ROTAT OF newwind PROMPT "\<Cycle" ;
  164.     KEY CTRL+F1, "^F1"
  165. DEFINE BAR _MWI_SP200 OF newwind PROMPT "\-"
  166. DEFINE BAR _MWI_DEBUG OF newwind PROMPT "\<Debug"
  167. DEFINE BAR _MWI_TRACE OF newwind PROMPT "\<Trace"
  168.  
  169. DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
  170. DEFINE BAR 1 OF utilities PROMPT "\<Reindex" ;
  171.     SKIP FOR EMPTY(ALIAS())
  172. DEFINE BAR 2 OF utilities PROMPT "Pac\<k" ;
  173.     SKIP FOR EMPTY(ALIAS())
  174. DEFINE BAR _MFI_PRINT OF utilities PROMPT "\<Print..."
  175. DEFINE BAR _MFI_SETUP OF utilities PROMPT "Printer \<Setup..."
  176. DEFINE BAR 5 OF utilities PROMPT "\<Data Path"
  177. DEFINE BAR 6 OF utilities PROMPT "\<Error Log Maintenance  " ;
  178.     SKIP FOR RDLEVEL() > 2 OR ! FILE("errlog.dbf")
  179. ON SELECTION BAR 1 OF utilities ;
  180.     DO _q2b0ynrps ;
  181.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  182. ON SELECTION BAR 2 OF utilities ;
  183.     DO _q2b0ynrqv ;
  184.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  185. ON SELECTION BAR 5 OF utilities help Data Path
  186. ON BAR 6 OF utilities ACTIVATE POPUP errorlogma
  187.  
  188. DEFINE POPUP errorlogma MARGIN RELATIVE SHADOW COLOR SCHEME 4
  189. DEFINE BAR 1 OF errorlogma PROMPT "\<Update Error Log Entries"
  190. DEFINE BAR 2 OF errorlogma PROMPT "\<Copy Error Log to Floppy"
  191. DEFINE BAR 3 OF errorlogma PROMPT "\<Erase Old Error Log"
  192. ON SELECTION BAR 1 OF errorlogma ;
  193.     DO _q2b0ynrxd ;
  194.     IN LOCFILE("WIDGET2" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET2?")
  195.  
  196. ON SELECTION POPUP tables WAIT WINDOW "Data Entry not yet available for this Table."
  197. ON SELECTION POPUP errorlogma WAIT WINDOW "Feature not implemented."
  198.  
  199. *       ╓─────────────────────────────────────────────────────────╖
  200. *       ║                                                         ║
  201. *       ║ _Q2B0YNQ7Z  ON SELECTION BAR 14 OF POPUP _msystem       ║
  202. *       ║                                                         ║
  203. *       ║ Procedure Origin:                                       ║
  204. *       ║                                                         ║
  205. *       ║ From Menu:  WIDGET2.MPR,            Record:   18        ║
  206. *       ║ Called By:  ON SELECTION BAR 14 OF POPUP _msystem       ║
  207. *       ║ Prompt:     Quit                                        ║
  208. *       ║ Snippet:    1                                           ║
  209. *       ║                                                         ║
  210. *       ╙─────────────────────────────────────────────────────────╜
  211. *
  212. PROCEDURE _q2b0ynq7z
  213. m.quit = .T.
  214. CLEAR READ ALL
  215. RETURN
  216.  
  217.  
  218. *       ╓─────────────────────────────────────────────────────────╖
  219. *       ║                                                         ║
  220. *       ║ _Q2B0YNQS7  ON SELECTION BAR 3 OF POPUP tables          ║
  221. *       ║                                                         ║
  222. *       ║ Procedure Origin:                                       ║
  223. *       ║                                                         ║
  224. *       ║ From Menu:  WIDGET2.MPR,            Record:   42        ║
  225. *       ║ Called By:  ON SELECTION BAR 3 OF POPUP tables          ║
  226. *       ║ Prompt:     Products                                    ║
  227. *       ║ Snippet:    2                                           ║
  228. *       ║                                                         ║
  229. *       ╙─────────────────────────────────────────────────────────╜
  230. *
  231. PROCEDURE _q2b0ynqs7
  232. SAVE SCREEN TO widgscrn
  233. WAIT WINDOW "Courtesy of FoxApp... " NOWAIT
  234. DO product.app
  235. RESTORE SCREEN FROM widgscrn
  236.  
  237.  
  238. *       ╓─────────────────────────────────────────────────────────╖
  239. *       ║                                                         ║
  240. *       ║ _Q2B0YNR8D  ON SELECTION BAR 1 OF POPUP reports         ║
  241. *       ║                                                         ║
  242. *       ║ Procedure Origin:                                       ║
  243. *       ║                                                         ║
  244. *       ║ From Menu:  WIDGET2.MPR,            Record:   61        ║
  245. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP reports         ║
  246. *       ║ Prompt:     Budget Table Report #1                      ║
  247. *       ║ Snippet:    3                                           ║
  248. *       ║                                                         ║
  249. *       ╙─────────────────────────────────────────────────────────╜
  250. *
  251. PROCEDURE _q2b0ynr8d
  252. yesno = "NO "
  253. DO ask.spr WITH "Do you wish to print?", yesno, "@M NO,YES"
  254. IF "Y" $ yesno
  255.    m.pause = .T.
  256.    where_out = "TO PRINT NOCONSOLE"
  257. ELSE
  258.    m.pause = .F.
  259.    where_out = "PREVIEW"
  260. ENDIF
  261. IF LASTKEY() = 27
  262.    RETURN
  263. ENDIF
  264. IF TYPE("big_item") = "U"
  265.    big_item = 0
  266. ENDIF
  267. DO ask.spr WITH "Smallest entry to mark:", big_item,"99999"
  268. IF LASTKEY() = 27
  269.    RETURN
  270. ENDIF
  271. REPORT FORM Model &where_out ENVIRONMENT
  272.  
  273.  
  274.  
  275.  
  276. *       ╓─────────────────────────────────────────────────────────╖
  277. *       ║                                                         ║
  278. *       ║ _Q2B0YNRPS  ON SELECTION BAR 1 OF POPUP utilities       ║
  279. *       ║                                                         ║
  280. *       ║ Procedure Origin:                                       ║
  281. *       ║                                                         ║
  282. *       ║ From Menu:  WIDGET2.MPR,            Record:   80        ║
  283. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP utilities       ║
  284. *       ║ Prompt:     Reindex                                     ║
  285. *       ║ Snippet:    4                                           ║
  286. *       ║                                                         ║
  287. *       ╙─────────────────────────────────────────────────────────╜
  288. *
  289. PROCEDURE _q2b0ynrps
  290. *WAIT WINDOW "Reindexing... " NOWAIT
  291. thisfile = DBF()
  292. thisname = ALIAS()
  293. got_cancel = .F.
  294. USE (thisfile) EXCLUSIVE ALIAS (thisname)
  295. SET TALK ON
  296. SET TALK WINDOW
  297. IF got_cancel
  298.    WAIT WINDOW "Reindexing cancelled."
  299.    got_cancel = .F.
  300. ELSE
  301.    REINDEX
  302. ENDIF
  303. USE (thisfile) ALIAS (thisname) AGAIN
  304. SET TALK OFF
  305. *WAIT CLEAR
  306.  
  307.  
  308. *       ╓─────────────────────────────────────────────────────────╖
  309. *       ║                                                         ║
  310. *       ║ _Q2B0YNRQV  ON SELECTION BAR 2 OF POPUP utilities       ║
  311. *       ║                                                         ║
  312. *       ║ Procedure Origin:                                       ║
  313. *       ║                                                         ║
  314. *       ║ From Menu:  WIDGET2.MPR,            Record:   81        ║
  315. *       ║ Called By:  ON SELECTION BAR 2 OF POPUP utilities       ║
  316. *       ║ Prompt:     Pack                                        ║
  317. *       ║ Snippet:    5                                           ║
  318. *       ║                                                         ║
  319. *       ╙─────────────────────────────────────────────────────────╜
  320. *
  321. PROCEDURE _q2b0ynrqv
  322. yesno = ASK("Ready to remove deleted "+PROPER(ALIAS());
  323.              +" records?","NO ","@M NO ,YES")
  324. * It's a good idea to confirm this, in case a user isn't
  325. * really sure what Pack does and might just be trying things
  326. * out.  ASK() provides them with a definition of the term
  327. * for their future use and understanding.
  328.  
  329. IF ! "Y" $ yesno
  330.    WAIT WINDOW "Pack cancelled."
  331.    RETURN
  332. ENDIF
  333. got_cancel = .F.
  334. thisfile = DBF()
  335. thisname = ALIAS()
  336. USE (thisfile) EXCLUSIVE ALIAS (thisname)
  337. IF got_cancel
  338.    WAIT WINDOW "Pack cancelled."
  339.    got_cancel = .F.
  340. ELSE
  341.   WAIT WINDOW "Packing "+PROPER(thisname)+" file... " NOWAIT
  342.   PACK
  343.   WAIT CLEAR
  344. ENDIF
  345. USE (thisfile) ALIAS (thisname) AGAIN
  346. RETURN
  347.  
  348.  
  349.  
  350. *       ╓─────────────────────────────────────────────────────────╖
  351. *       ║                                                         ║
  352. *       ║ _Q2B0YNRXD  ON SELECTION BAR 1 OF POPUP errorlogma      ║
  353. *       ║                                                         ║
  354. *       ║ Procedure Origin:                                       ║
  355. *       ║                                                         ║
  356. *       ║ From Menu:  WIDGET2.MPR,            Record:   87        ║
  357. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP errorlogma      ║
  358. *       ║ Prompt:     Update Error Log Entries                    ║
  359. *       ║ Snippet:    6                                           ║
  360. *       ║                                                         ║
  361. *       ╙─────────────────────────────────────────────────────────╜
  362. *
  363. PROCEDURE _q2b0ynrxd
  364. * this is a "program stub" only -- could be
  365. * made a lot more interesting!
  366. xselect = SELECT()
  367. IF USED("errlog")
  368.    SELECT errlog
  369. ELSE
  370.    SELECT 0
  371.    USE errlog
  372. ENDIF
  373. GO BOTTOM
  374. PUSH KEY CLEAR
  375. ON KEY LABEL F2 DO getlisting
  376. DEFINE WINDOW logbrow FROM 2,1 TO 6,41;
  377.    TITLE " Current Error Log Records " ;
  378.    COLOR SCHEME 10 CLOSE
  379. DEFINE WINDOW usermemo FROM 9,1 TO 23,79 ;
  380.    TITLE " Type Your Notes on the Error that Occurred Here " ;
  381.    FOOTER " We Appreciate Your Assistance! " ;
  382.    COLOR SCHEME 10
  383. MODI MEMO Usernotes WINDOW usermemo NOWAIT RANGE 30,30
  384. startup = .T.
  385. BROWSE FIELDS Errdate :R :H="Date" :W=checkmemo(.T.), ;
  386.               Errtime :R :H="Time" :W=checkmemo(.T.), ;
  387.               Listing :R :H="System Listing [F2]" :W=checkmemo(.F.), ;
  388.               UserNotes :H="User Notes" :W=checkmemo(.F.) ;
  389.               WINDOW logbrow ;
  390.               SAVE pref errorlog ;
  391.               WHEN !startup OR do_start()
  392. RELEASE WINDOWS "Type", "Current", usermemo, logbrow, errlog
  393. POP KEY
  394. RETURN
  395.  
  396. FUNC checkmemo
  397. PARAMETER gohere
  398. * make sure that you can see the Usernotes memo at all times.
  399. IF !WEXIST(" Type")
  400.     KEYBOARD "{CTRL-W}"
  401. ENDIF
  402. RETURN gohere
  403.  
  404. PROC getlisting
  405. IF WVISIBLE("Errlog")
  406.    RELEASE WINDOW Errlog
  407. ELSE
  408.    MODI MEMO Listing NOWAIT NOMODIFY
  409.    * will use stored preference for placement
  410. ENDIF
  411. RETURN
  412.  
  413. FUNC do_start
  414. startup = .F.
  415. KEYBOARD "{CTRL-F1}"
  416. RETURN .T.
  417.